#!/src/bin/perl -w
$filename = "corpus/amants.txt";
chomp($filename);
open (FileInput, $filename)||die "Can't open file";
open (FileOutput, '>premier_mot.txt');
while ($line = <FileInput>) 
{
	@liste_mots = split(/ /,$line);    
	print FileOutput $liste_mots[0]."\n";

}
close(FileInput);
close(FileOutput);